home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO001.dsk / FIN / LOAN.LAST.PAYMT.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  35 lines
  1. 10  PRINT "LAST PAYMENT ON A LOAN
  2. 20  PRINT 
  3. 29  REM  - STATEMENTS 30 TO 130 REQUEST USER INPUT
  4. 30  PRINT "REGULAR PAYMENT";
  5. 40  INPUT R
  6. 50  PRINT "PRINCIPAL";
  7. 60  INPUT P
  8. 70  PRINT "TERM IN YEARS, MONTHS";
  9. 80  INPUT Y0,M
  10. 84  REM  - CALCULATE YEARS FROM YEARS AND MONTHS
  11. 85 Y = (12 *Y0 +M)/12
  12. 90  PRINT "ANNUAL INTEREST RATE";
  13. 100  INPUT I
  14. 109  REM  - CONVERT ITERST FROM PERCENT TO DECIMAL
  15. 110 I = I/100
  16. 120  PRINT "NUMBER OF PAYMENTS PER YEAR";
  17. 130  INPUT N
  18. 140 B0 = P
  19. 149  REM  - COMPUTE ALL PAYMENTS, BALANCES THROUGH LAST PAYMENT USING R
  20. 150  FOR J1 = 1 TO N *Y
  21. 159  REM  - ROUND OFF INTEREST PAID TO NEAREST CENT
  22. 160 I1 =  INT((B0 *I/N) *100 +.5)/100
  23. 169  REM  - CALCULATE AMOUNT AMORTIZED WITH EACH PAYMENT
  24. 170 A = R -I1
  25. 179  REM  - BALANCE REMAINING DECREASES WITH EACH PAYMENT
  26. 180 B0 = B0 -A
  27. 190  NEXT J1
  28. 199  REM  - CALCULATE LAST PAYMENT, ROUND OFF, PRINT
  29. 200  PRINT "LAST PAYMENT =$"; INT((R +B0) *100 +.5)/100
  30. 210  PRINT 
  31. 219  REM  - RESTART OR END PROGRAM?
  32. 220  PRINT "MORE DATA? (1=YES, 0=NO)";
  33. 230  INPUT X
  34. 240  IF X = 1  THEN 20
  35. 250  PRINT "<CTRL-D>RUN HELLO"